home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / Blitz2 / BlitzFaq / FaqLists / Evwait.txt < prev    next >
Encoding:
Text File  |  1996-09-03  |  686 b   |  28 lines
  1. NEWTYPE .MsgPort
  2.   mp_Node.l;
  3.   mp_Flags.b;
  4.   mp_SigBit.b;   /* signal bit number */
  5.   mp_SigTask.l;  /* object to be signalled */
  6.   mp_MsgList.l;  /* message linked list */
  7. End NEWTYPE
  8.  
  9. #SIGBREAKF_CTRL_C=1 ASL 12
  10. ; Wait for Break example
  11. *myport.MsgPort = CreateMsgPort("Test_Port")
  12. If *myport
  13.   mysig.l = 1 LSL *myport\mp_SigBit
  14.   NPrint "waiting for Break (Ctrl_C)"
  15.   bigsig.l = Wait_(mysig OR #SIGBREAKF_CTRL_C)
  16.   If bigsig & #SIGBREAKF_CTRL_C
  17.     NPrint "Received Break" : Goto cleanexit
  18.   EndIf
  19.   If bigsig & mysig
  20.     NPrint "Port signal Received" : Goto cleanexit
  21.   EndIf
  22. Else
  23.   Request "","Error creating MsgPort","OK"
  24. EndIf
  25. cleanexit
  26. If *myport Then DeleteMsgPort *myport
  27. End
  28.